| NodeIsGrandparent method |
Applies to
TDUnitDialog
Declaration
Function NodeIsGrandparent(ANode: TTreeNode): boolean;Implementation
function TDUnitDialog.NodeIsGrandparent(ANode: TTreeNode): boolean;
var
AChildNode: TTreeNode;
begin
Result := false;
if ANode.HasChildren then
begin
AChildNode := ANode.GetFirstChild;
while AChildNode <> nil do
begin
Result := AChildNode.HasChildren or Result;
AChildNode := ANode.GetNextChild(AChildNode);
end;
end;
End; |
|
|